* Data
use "$data/main_touse.dta", replace

* Plot trimmed patience parameter by treatment
su patience_ctb_trim
bysort ctb: su patience_ctb_trim
histogram patience_ctb_trim, ///
 plotregion(lcolor(none)) ///
percent fcolor(gs14) lcolor(black) lwidth(vthin) ///
xtitle("Patience Estimates") ///
xlabel(#5, grid glwidth(vthin)) ///
by(, graphregion(fcolor(white) ifcolor(white))) ///
by(ctb, note("") legend(off)) subtitle(, fcolor(white) lwidth(none)) 
graph export "$output/FigureA2.pdf", replace
window manage close graph
